home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23c.d64 / spulen berechn. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  15KB  |  448 lines
  1. 1 GOTO10: OPEN1,8,15
  2. 2 INPUT#1,A,B$,C,D
  3. 3 PRINTA,B$,C,D
  4. 4 STOP
  5. 10 POKE53280,0:POKE53281,0:PRINT"[147]"
  6. 20 O1=0:O2=0
  7. 100 GOSUB 50000:GOTO1000
  8. 900 REM*EINFACHES GET
  9. 910 GETY$:IFY$=""THEN910
  10. 920 Y=VAL(Y$):IFY>M1THEN910
  11. 930 M1=0:RETURN
  12. 1000 REM*KERNDATEN
  13. 1010 PRINTLEFT$(X2$,2);T1$
  14. 1020 PRINT"1 = SPULE (HF-DROSSEL)"
  15. 1030 PRINT"2 = GEGENTAKTWANDLER"
  16. 1040 PRINT"3 = EINTAKTWANDLER"
  17. 1070 PRINT"4 = KERNTABELLE"
  18. 1080 PRINT"5 = DRAHTTABELLE"
  19. 1090 PRINT"6 = DRUCKEN"
  20. 1100 PRINTT2$
  21. 1110 M1=6:GOSUB900
  22. 1120 ONYGOSUB2000,5000,7000,3100,3200,20000
  23. 1130 GOTO1000
  24. 2000 REM*SPULE BERECHNEN
  25. 2010 T1=1:L1=0:D1=0:B1=0:K1=0:A1=0:F1=0:X1=0:Y1=0:M2=0:M3=0:M4=0
  26. 2020 GOSUB20140
  27. 2100 PRINT"[147]SPULENDATEN"
  28. 2110 PRINT"L IN HENRY   =";:INPUTL1
  29. 2120 PRINT"D KERN       =";:INPUTD1
  30. 2130 PRINT"B KERN       =";:INPUTB1
  31. 2140 PRINT"KZ 1-3       =";:INPUTK1
  32. 2150 PRINT"AL IN NHENRY =";:INPUTA1
  33. 2160 PRINT"F IN HERZ    =";:INPUTF1
  34. 2200 IFL1=0ORD1=0ORB1=0ORK1=0ORA1=0THENPRINTX3$;T6$;""T4$:GOSUB3800:GOTO1000
  35. 2210 IFK1<1ORK1>3THENPRINTX3$;T6$;""T4$:GOSUB3800:GOTO2000
  36. 2220 IFK1<>1THENK1=2
  37. 2300 REM*KERNTABELLE LESEN
  38. 2310 FORJ1=1TO15
  39. 2320 IFQ(J1,1)=D1ANDQ(J1,2)=B1ANDQ(J1,3)=K1THENX1=Q(J1,4):Y1=Q(J1,5):GOTO2340
  40. 2330 NEXT
  41. 2340 IFX1=0ORY1=0THENPRINTX3$;T3$;""T4$:PRINTT5$" J/N":GOTO2360
  42. 2350 GOTO2380
  43. 2360 GOSUB900:IFY$="J"THENGOSUB3100
  44. 2370 GOTO2000
  45. 2380 N1=SQR(L1/(1E-9*A1))
  46. 2400 REM*BERECHNUNG
  47. 2410 M2=0:M4=0
  48. 2420 N5=N1:N=N5:GOSUB7000:IFM4=1THENGOTO2000
  49. 2430 E1=D3:E2=D4:NA=N5:MA=M2:RA=R:RA$=R$:LA=L:LA$=L$:FA=FE
  50. 2440 IFF1<>0THENZ3=2*(null)*F1*L1:R=Z3:GOSUB3700:R2=R:R2$=R$
  51. 2460 QQ=Z3/R9:QQ=INT(QQ*10)/10
  52. 2600 PRINT"[147]SPULENDATEN"
  53. 2610 PRINT"L IN HENRY   =";L1
  54. 2620 PRINT"D KERN       =";D1
  55. 2630 PRINT"B KERN       =";B1
  56. 2640 PRINT"KZ 1-3       =";K1
  57. 2650 PRINT"AL IN NHENRY =";A1
  58. 2660 PRINT"F IN HERZ    =";F1
  59. 2670 PRINT"N            =";NA
  60. 2680 IFMA=0THENPRINTTAB(24)"[145]WINDUNGEN"
  61. 2690 IFMA=1THENPRINTTAB(24)"[145]*2 WIND.PAR."
  62. 2700 PRINT"D NENND.    =";E1;TAB(24)"CUL"
  63. 2710 PRINT"D AUSSEND.  =";E2;TAB(24)"CUL"
  64. 2720 PRINT"RCU          =";RA;TAB(24)RA$
  65. 2730 PRINT"XL INDUKTANZ =";R2;TAB(24)R2$
  66. 2740 PRINT"Q SPULENGUETE=";QQ
  67. 2750 PRINT"FCU          =";FA;TAB(24)"KUPFERFUELLFAK."
  68. 2800 GOSUB3010:IFM4=1THEN1000
  69. 2810 GOSUB7080:GOTO2430
  70. 3000 REM*DRAHTSTAERKE AENDERN
  71. 3010 PRINTLEFT$(X3$,22);T7$;" DN J/N":M3=1:GOSUB3800
  72. 3020 IFY$<>"J"THENM4=1:RETURN
  73. 3030 PRINT"DN+1=F1  DN-1=F3":GOSUB900
  74. 3040 IFY$=CHR$(133)ANDJ2=31ANDMA=1THENRETURN
  75. 3050 IFY$=CHR$(133)THENJ2=J2+1:IFJ2>31THENJ2=26:MA=1:GOTO3060
  76. 3055 GOTO3070
  77. 3060 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
  78. 3070 IFY$=CHR$(134)THENJ2=J2-1:IFJ2<26ANDM2=1THENJ2=31:MA=0
  79. 3080 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
  80. 3090 RETURN
  81. 3100 REM*KERNTABELLE LESEN
  82. 3110 PRINT"[147]KERNTABELLE"
  83. 3120 PRINT"D KERN","B KERN","KZ","LN"
  84. 3130 FORJ=1TO15
  85. 3140 PRINTQ(J,1),Q(J,2),Q(J,3),Q(J,6)
  86. 3150 NEXT:GOTO3800
  87. 3200 REM*DRAHTTABELLE LESEN
  88. 3205 PRINT"[147]DRAHTTABELLE"
  89. 3210 PRINT"DN","DA","Z1"
  90. 3220 FORJ=1TO16
  91. 3230 PRINTQ1(J,1),Q1(J,2),Q1(J,3)
  92. 3240 NEXT:PRINT"WEITER MIT RETURN":GOSUB3800
  93. 3250 PRINT"[147]DRAHTTABELLE"
  94. 3260 PRINT"DN","DA","Z1"
  95. 3270 FORJ=17TO31
  96. 3280 PRINTQ1(J,1),Q1(J,2),Q1(J,3)
  97. 3290 NEXT:GOTO3800
  98. 3400 REM*FORMATIERUNG VON C
  99. 3410 IFC<1E-9THENC=C*1E12:C$="PF":GOTO3440
  100. 3420 IFC<1E-6THENC=C*1E9:C$="NF":GOTO3440
  101. 3430 IFC<1E-3THENC=C*1E6:C$="UF"
  102. 3440 C=INT(C*10)/10:RETURN
  103. 3500 REM*RUNDUNG VON N
  104. 3510 NY=N5-INT(N5)
  105. 3520 IFNY>.7THENN5=INT(N5)+1:RETURN
  106. 3530 IFNY>.2THENN5=INT(N5)+.5:RETURN
  107. 3540 RETURN
  108. 3600 REM*FORMATIERUNG VON L
  109. 3610 IFL<1E-6THENL=L*1E9:L$="NH":GOTO3650
  110. 3620 IFL<1E-3THENL=L*1E6:L$="UH":GOTO3650
  111. 3630 IFL<1THENL=L*1E3:L$="MH":GOTO3650
  112. 3640 L$="H"
  113. 3650 L=INT(L+.5):RETURN
  114. 3700 REM*FORMATIERUNG VON R
  115. 3710 IFR>1E6THENR=R/1E6:R$="MOHM":GOTO3750
  116. 3720 IFR>1E3THENR=R/1E3:R$="KOHM":GOTO3750
  117. 3730 IFR>1THENR$="OHM":GOTO3750
  118. 3740 IFR>1E-3THENR=R*1E3:R$="MILLI OHM"
  119. 3750 R=INT(R*1000)/1000:RETURN
  120. 3800 GOSUB900
  121. 3810 IFASC(Y$)=13THEN3840
  122. 3830 RETURN
  123. 3840 IFM3=1THENPRINTLEFT$(X3$,22);X1$:PRINTLEFT$(X3$,23);X1$:M3=0
  124. 3850 RETURN
  125. 5000 REM*GEGENTAKTWANDLER BERECHNEN
  126. 5010 PRINT"[147]NEUEINGABE ? J/N[146]":GOSUB6900:IFY$<>"J"THEN5090
  127. 5020 T1=1:T2=.2:U1=0:U2=0:I1=0:U3=0:U4=0:B3=0:D1=0:B1=0:K1=0:A1=0:F1=0:X1=0:Y1=0
  128. 5030 S4=0:M2=0:M3=0:M4=0:M5=0:J3=0:J3=0
  129. 5090 GOSUB20100
  130. 5100 PRINT"[147]GEGENTAKTWANDLER-DATEN"
  131. 5110 PRINT"U PRIM IN VOLT =";U1;:PRINTTAB(24):INPUTU1
  132. 5120 PRINT"U SEK  IN VOLT =";U2;:PRINTTAB(24):INPUTU2
  133. 5130 PRINT"I SEK  IN AMP. =";I2;:PRINTTAB(24):INPUTI2
  134. 5140 PRINT"U BE   IN VOLT =";U3;:PRINTTAB(24):INPUTU3
  135. 5150 PRINT"U DIODE   VOLT =";U4;:PRINTTAB(24):INPUTU4
  136. 5160 PRINT"B VERST.-FAKT. =";B3;:PRINTTAB(24):INPUTB3
  137. 5170 PRINT"D KERN-DURCHM. =";D1;:PRINTTAB(24):INPUTD1
  138. 5180 PRINT"B KERN-BREITE  =";B1;:PRINTTAB(24):INPUTB1
  139. 5190 PRINT"KZ 1-3 KAMMER  =";K1;:PRINTTAB(24):INPUTK1
  140. 5200 PRINT"AL IN NHENRY   =";A1;:PRINTTAB(24):INPUTA1
  141. 5210 PRINT"F  IN HERZ     =";F1;:PRINTTAB(24):INPUTF1
  142. 5220 PRINT"B MAX IN TESLA =";T2;:PRINTTAB(24):INPUTT2
  143. 5230 PRINT"R VORWIDERST.  =";S4;:PRINTTAB(24):INPUTS4
  144. 5280 IFU1=0ORU2=0ORI2=0ORU3=0ORU4=0ORB3=0ORD1=0ORB1=0ORK1=0ORA1=0ORF1=0THEN5310
  145. 5290 IFS4=0THEN5310
  146. 5300 GOTO5320
  147. 5310 PRINTX3$;T6$;""T4$:GOSUB6900:GOTO1000
  148. 5320 IFK1<1ORK1>3THENPRINTX3$;T6$;""T4$:GOSUB6900:GOTO5000
  149. 5330 IFK1<>1THENK1=2
  150. 5335 REM*KERNTABELLE LESEN
  151. 5340 FORJ1=1TO15
  152. 5350 IFQ(J1,1)=D1ANDQ(J1,2)=B1ANDQ(J1,3)=K1THENX1=Q(J1,4):Y1=Q(J1,5):GOTO5370
  153. 5360 NEXT
  154. 5370 IFX1=0ORY1=0THENPRINTX3$;T3$;""T4$:PRINTT5$" J/N":GOTO5390
  155. 5380 GOTO5410
  156. 5390 GOSUB900:IFY$="J"THENGOSUB3100
  157. 5400 GOTO5000
  158. 5410 REM*BERECHNUNG PRIMAERWICKLUNG
  159. 5420 AE=Q(J1,7)
  160. 5430 N1=U1*1E6/(4*F1*T2*AE)
  161. 5440 L1=A1*1E-9*N1^2:L=L1:GOSUB3600:LA=L:LA$=L$
  162. 5450 M2=0:M4=0
  163. 5460 N5=N1:N=N5*4.2:GOSUB7000:IFM4=1THENGOTO5000
  164. 5470 E1=D3:E2=D4:NA=N5:MA=M2:RA=R:RA$=R$:LA=L:LA$=L$:FA=FE:S1=R9
  165. 5480 REM*BERECHNUNG STEUERWICKLUNG
  166. 5500 N3=N1*2*U3/U1
  167. 5510 L3=A1*1E-9*N3^2:L=L3:GOSUB3600:LC=L:LC$=L$
  168. 5520 M2=0:M4=0
  169. 5530 N5=N3:N=N1*B3:GOSUB7000:IFM4=1THENGOTO5000
  170. 5540 E5=D3:E6=D4:NC=N5:MC=M2:RC=R:RC$=R$:LC=L:LC$=L$:FC=FE:S3=R9
  171. 5550 REM*BERECHNUNG SEKUNDAERWICKLUNG
  172. 5560 R4=S1*U2/U1
  173. 5570 R2=R4
  174. 5580 FORJ3=1TO3
  175. 5590 N2=N1*(U2+U4+((R4+R2)*I2))/U1
  176. 5600 M2=0:M4=0
  177. 5610 N5=N2:N=N2*4.2:GOSUB7000:IFM4=1THENGOTO5000
  178. 5620 E3=D3:E4=D4:NB=N5:MB=M2:RB=R:RB$=R$:FB=FE:R2=R9
  179. 5630 L2=A1*1E-9*N2^2:L=L2:GOSUB3600:LB=L:LB$=L$
  180. 5640 NEXT
  181. 5650 REM*NEBENRECHNUNG
  182. 5660 I3=I2*N2/N1/B3:I3=INT((I3+.0005)*1000)/1000:S5=U3/I3:S6=((U1-.6)/.6)*S4
  183. 5680 S5=U3/I3:R=S5:GOSUB3700:S5=R
  184. 5690 S6=((U1-.6)/.6)*S4:R=S6:GOSUB3700:S6=R
  185. 5700 S5=U3/I3:R=S5:GOSUB3700:S5=R:S5$=R$
  186. 5710 P1=I1*U1:P1=INT((P1+.0005)*1000)/1000
  187. 5720 PV=P1-U2*I2:PV=INT((PV+.0005)*1000)/1000
  188. 5730 S6=((U1-.6)/.6)*S4:R=S6:GOSUB3700:S6=R:S6$=R$
  189. 5740 C1=10/(U2*I2*F1):
  190. 5750 S7=U5/I2:R=S7:GOSUB3700:R7=R:R7$=R$
  191. 5760 I1=I2*N2/N1:I1=INT((I1+.0005)*1000)/1000
  192. 5770 P1=I1*U1:P1=INT((P1+.0005)*1000)/1000
  193. 5780 PV=P1-U2*I2:PV=INT((PV+.0005)*1000)/1000
  194. 5790 U5=U1*N2/N1:U5=INT((U5+.05)*10)/10
  195. 5800 C1=10/(U2*I2*F1):C=C1:GOSUB3400:C1=C:C1$=C$
  196. 5810 S7=U5/I2:R=S7:GOSUB3700:R7=R:R7$=R$
  197. 5820 NL=E1^2*(null)/4*5.3*U1:NL=INT(NL*1000)/1000:FD=(FA+FB+FC)*2
  198. 6000 PRINT"[147]GEGENTAKT-WANDLER-DATEN"
  199. 6010 PRINT"NENNLEISTUNG  =";NL;"(5.3A/QMM)
  200. 6020 [153]"PRIMAERWICKLUNG";[163]24)"2 MAL"
  201. 6030 [153]"N             =";NA
  202. 6040 [139]MA[178]0[167][153][163]24)"ONWINDUNGEN"
  203. 6050 [139]MA[178]1[167][153][163]24)"ON*2 WIND.PAR."
  204. 6060 [153]"D NENN.       =";E1;[163]24)"CUL"
  205. 6070 [153]"D AUSS.       =";E2;[163]24)"CUL"
  206. 6080 [153]"SEKUNDAERWICKLUNG";[163]24)"2 MAL"
  207. 6090 [153]"N             =";NB
  208. 6100 [139]MB[178]0[167][153][163]24)"ONWINDUNGEN"
  209. 6110 [139]MB[178]1[167][153][163]24)"ON*2 WIND.PAR."
  210. 6120 [153]"D NENN.       =";E3;[163]24)"CUL"
  211. 6130 [153]"D AUSS.       =";E4;[163]24)"CUL"
  212. 6140 [153]"STEUERWICKLUNG";[163]24)"2 MAL"
  213. 6150 [153]"N             =";NC
  214. 6160 [139]MC[178]0[167][153][163]24)"ONWINDUNGEN"
  215. 6170 [139]MC[178]1[167][153][163]24)"ON*2 WIND.PAR."
  216. 6180 [153]"D NENN.       =";E5;[163]24)"CUL"
  217. 6190 [153]"D AUSS.       =";E6;[163]24)"CUL"
  218. 6200 [153]"WEITER MIT RETURN":[141]3800
  219. 6210 [153]"LOADGEGENTAKT-WANDLER-DATEN"
  220. 6220 [153]"IC TRANSISTOR =";I1;[163]24)"AMP"
  221. 6230 [153]"IB TRANSISTOR =";I3;[163]24)"AMP"
  222. 6240 [153]"RB            =";S5;[163]24)S5$
  223. 6250 [153]"R VORWIDERST. =";S6;[163]24)S6$
  224. 6260 [153]"U SEK. MAX    =";U5;[163]24)"VOLT"
  225. 6270 [153]"C LADEELKO    =";C1;[163]24)C1$
  226. 6280 [153]"P1 EIN LEIST. =";P1;[163]24)"WATT"
  227. 6290 [153]"PV VERL.      =";PV;[163]24)"WATT"
  228. 6300 [153]"P NENN        =";NL;[163]24)"WATT"
  229. 6310 [153]"FCU           =";FD;[163]24)"KUPFERFUELLF."
  230. 6320 [153]"WEITER MIT RETURN":[141]3800
  231. 6500 [153]"LOADGEGENTAKT-WANDLER-DATEN"
  232. 6510 [153]"N       PRIM. =";NA
  233. 6520 [139]MA[178]0[167][153][163]24)"ONWINDUNGEN"
  234. 6530 [139]MA[178]1[167][153][163]24)"ON*2 WIND.PAR."
  235. 6540 [153]"L       PRIM. =";LA;[163]24)LA$
  236. 6550 [153]"RCU     PRIM. =";RA;[163]24)RA$
  237. 6560 [153]"D NENN. PRIM. =";E1;[163]24)"CUL"
  238. 6570 [153]"D AUSS. PRIM. =";E2;[163]24)"CUL"
  239. 6580 [153]"FCU           =";FA;[163]24)"KUPFERFUELLF."
  240. 6610 [153]"N       SEK.  =";NB;[163]24)"WINDUNGEN"
  241. 6620 [139]MB[178]0[167][153][163]24)"ONWINDUNGEN"
  242. 6630 [139]MB[178]1[167][153][163]24)"ON*2 WIND.PAR."
  243. 6640 [153]"L       SEK.  =";LB;[163]24)LB$
  244. 6650 [153]"RCU     SEK.  =";RB;[163]24)RB$
  245. 6660 [153]"D NENN. SEK.  =";E3;[163]24)"CUL"
  246. 6670 [153]"D AUSS. SEK.  =";E4;[163]24)"CUL"
  247. 6680 [153]"FCU           =";FB;[163]24)"KUPFERFUELLF."
  248. 6710 [153]"N       STEU. =";NC;[163]24)"WINDUNGEN"
  249. 6720 [139]MC[178]0[167][153][163]24)"ONWINDUNGEN"
  250. 6730 [139]MC[178]1[167][153][163]24)"ON*2 WIND.PAR."
  251. 6740 [153]"L       STEU. =";LC;[163]24)LC$
  252. 6750 [153]"RCU     STEU. =";RC;[163]24)RC$
  253. 6760 [153]"D NENN. STEU. =";E5;[163]24)"CUL"
  254. 6770 [153]"D AUSS. STEU. =";E6;[163]24)"CUL"
  255. 6780 [153]"FCU           =";FC;[163]24)"KUPFERFUELLF."
  256. 6790 [153]"NOCH EINMAL AUFLISTEN ? J/N":[141]900:[139]Y$[178]"J"[167]6000
  257. 6800 [142]
  258. 6900 [141]900
  259. 6910 [139][198](Y$)[178]13[167]6940
  260. 6930 [142]
  261. 6940 [139]M3[178]1[167][153][200](X3$,22);X1$:[153][200](X3$,23);X1$:M3[178]0
  262. 6950 [142]
  263. 7000 [143]
  264. 7010 D2[178]Y1[173]([189]([188](N)[173]X1))
  265. 7020 [139]D2[177][178]1.068[167]D2[178][186]((D2[174]2)[173]2):M2[178]1
  266. 7030 [139]D2[177][178]1.068[167]D2[178]1.068:J2[178]31
  267. 7040 [129]J2[178]1[164]31
  268. 7050 [139]D2[178][179]Q1(J2,2)[167]D3[178]Q1(J2,1):D4[178]Q1(J2,2):Z1[178]Q1(J2,3):[137]7070
  269. 7060 [130]
  270. 7070 N5[178][181]((N5[170].05)[172]10)[173]10:[141]3500
  271. 7080 N6[178][189](([188](Y1[173]D4))[172]X1)
  272. 7090 FD[178]N5[173]N6:FE[178][181](FD[172]50[170].5)[173]100:[139]M2[178]1[167]FE[178]FE[172]2
  273. 7100 Z2[178]Q(J1,6):R[178](Z2[172]N5[172]FD[170]100)[173]1000[172]Z1:[139]M2[178]1[167]R[178]R[173]2
  274. 7110 R9[178]R:[141]3700
  275. 7120 [142]
  276. 20000 [143]*DRUCKEN
  277. 20010 [153]"LOADDRUCKEN":[153]X3$;T8$
  278. 20020 [141]900:[139]Y$[179][177]"J"[167]20020
  279. 20050 [137]20200
  280. 20100 [143]*GEGENTAKTWANDLER
  281. 20110 O1[178]1:[142]
  282. 20130 [143]*SPULE (HF-DROSSEL)
  283. 20140 O2[178]1:[142]
  284. 20200 [139]O1[178]1[167]20300
  285. 20210 [139]O2[178]1[167]21200
  286. 20290 [142]
  287. 20300 [159]1,4
  288. 20310 [152]1,[199](14)[166]4)"GEGENTAKTWANDLER-DATEN * EINGABE":[152]1
  289. 20320 [152]1,[199](15)[166]8)"U PRIM. IN VOLT =";U1
  290. 20330 [152]1,[199](15)[166]8)"U SEK.  IN VOLT =";U2
  291. 20340 [152]1,[199](15)[166]8)"I SEK.  IN AMP. =";I2
  292. 20350 [152]1,[199](15)[166]8)"U BE    IN VOLT =";U3
  293. 20360 [152]1,[199](15)[166]8)"U DIODE IN VOLT =";U4
  294. 20370 [152]1,[199](15)[166]8)"B VERST.-FAKT.  =";B3
  295. 20380 [152]1,[199](15)[166]8)"D KERN-DURCHM.  =";D1
  296. 20390 [152]1,[199](15)[166]8)"B KERN-BREITE   =";B1
  297. 20400 [152]1,[199](15)[166]8)"KZ 1-3 KAMMER   =";K1
  298. 20410 [152]1,[199](15)[166]8)"AL IN NHENRY    =";A1
  299. 20420 [152]1,[199](15)[166]8)"F  IN HERZ      =";F1
  300. 20430 [152]1,[199](15)[166]8)"B MAX IN TESLA  =";T2
  301. 20440 [152]1,[199](15)[166]8)"R VORWIDERST.   =";S4
  302. 20450 [152]1
  303. 20510 [152]1,[199](14)[166]4)"GEGENTAKTWANDLER-DATEN * AUSGABE"
  304. 20520 [152]1
  305. 20530 [152]1,[199](15)[166]8)"PRIMAERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
  306. 20540 [152]1,[199](15)[166]8)"N             =";NA;
  307. 20550 [139]MA[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
  308. 20560 [139]MA[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
  309. 20570 [152]1,[199](15)[166]8)"D NENN.       =";E1;[199](16)[199](51)[199](50)"CUL"
  310. 20580 [152]1,[199](15)[166]8)"D AUSS.       =";E2;[199](16)[199](51)[199](50)"CUL"
  311. 20590 [152]1
  312. 20600 [152]1,[199](15)[166]8)"IC TRANSISTOR =";I1;[199](16)[199](51)[199](50)"AMP"
  313. 20610 [152]1,[199](15)[166]8)"IB TRANSISTOR =";I3;[199](16)[199](51)[199](50)"AMP"
  314. 20620 [152]1,[199](15)[166]8)"SEKUNDAERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
  315. 20630 [152]1
  316. 20640 [152]1,[199](15)[166]8)"N             =";NB;
  317. 20650 [139]MB[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
  318. 20660 [139]MB[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
  319. 20670 [152]1,[199](15)[166]8)"D NENN.       =";E3;[199](16)[199](51)[199](50)"CUL"
  320. 20680 [152]1,[199](15)[166]8)"D AUSS.       =";E4;[199](16)[199](51)[199](50)"CUL"
  321. 20690 [152]1
  322. 20695 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  323. 20700 [152]1:[152]1
  324. 20710 [152]1,[199](15)[166]8)"L       PRIM. =";LA;[199](16)[199](51)[199](50)LA$
  325. 20720 [152]1,[199](15)[166]8)"STEUERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
  326. 20730 [152]1
  327. 20735 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  328. 20740 [152]1,[199](15)[166]8)"N             =";NC;
  329. 20750 [139]MC[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
  330. 20760 [139]MC[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
  331. 20770 [152]1,[199](15)[166]8)"D NENN.       =";E5;[199](16)[199](51)[199](50)"CUL"
  332. 20775 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  333. 20780 [152]1,[199](15)[166]8)"D AUSS.       =";E6;[199](16)[199](51)[199](50)"CUL"
  334. 20790 [152]1:[152]1
  335. 20800 [152]1,[199](15)[166]8)"IC TRANSISTOR =";I1;[199](16)[199](51)[199](50)"AMP"
  336. 20810 [152]1,[199](15)[166]8)"IB TRANSISTOR =";I3;[199](16)[199](51)[199](50)"AMP"
  337. 20820 [152]1,[199](15)[166]8)"RB            =";S5;[199](16)[199](51)[199](50)S5$
  338. 20830 [152]1,[199](15)[166]8)"R VORWIDERST. =";S6;[199](16)[199](51)[199](50)S6$
  339. 20840 [152]1,[199](15)[166]8)"U SEK. MAX    =";U5;[199](16)[199](51)[199](50)"VOLT"
  340. 20850 [152]1,[199](15)[166]8)"C LADEELKO    =";C1;[199](16)[199](51)[199](50)C1$
  341. 20860 [152]1,[199](15)[166]8)"P1 EIN LEIST. =";P1;[199](16)[199](51)[199](50)"WATT"
  342. 20870 [152]1,[199](15)[166]8)"PV VERLUST    =";PV;[199](16)[199](51)[199](50)"WATT"
  343. 20880 [152]1,[199](15)[166]8)"P NENNLEIST.  =";NL;[199](16)[199](51)[199](50)"WATT"
  344. 20890 [152]1,[199](15)[166]8)"FCU           =";FD;
  345. 20895 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  346. 20900 [152]1:[152]1
  347. 20910 [152]1,[199](15)[166]8)"L       PRIM. =";LA;[199](16)[199](51)[199](50)LA$
  348. 20920 [152]1,[199](15)[166]8)"RCU     PRIM. =";RA;[199](16)[199](51)[199](50)RA$
  349. 20930 [152]1,[199](15)[166]8)"FCU     PRIM. =";FA;
  350. 20935 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  351. 20940 [152]1
  352. 20950 [152]1,[199](15)[166]8)"L        SEK. =";LB;[199](16)[199](51)[199](50)LB$
  353. 20960 [152]1,[199](15)[166]8)"RCU      SEK. =";RB;[199](16)[199](51)[199](50)RB$
  354. 20970 [152]1,[199](15)[166]8)"FCU      SEK. =";FB;
  355. 20975 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  356. 20980 [152]1
  357. 20990 [152]1,[199](15)[166]8)"L       STEU. =";LC;[199](16)[199](51)[199](50)LC$
  358. 21000 [152]1,[199](15)[166]8)"RCU     STEU. =";RC;[199](16)[199](51)[199](50)RC$
  359. 21010 [152]1,[199](15)[166]8)"FCU     STEU. =";FC;
  360. 21020 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  361. 21100 O1[178]0:[152]1:[160]1:[142]
  362. 21200 [159]1,4
  363. 21210 [152]1,[199](14)[166]4)"SPULE (HF-DROSSEL)-DATEN * EINGABE"
  364. 21220 [152]1
  365. 21230 [152]1,[199](15)[166]8)"L IN HENRY      =";L1
  366. 21240 [152]1,[199](15)[166]8)"D KERN-DURCHM.  =";D1
  367. 21250 [152]1,[199](15)[166]8)"B KERN-BREITE   =";B1
  368. 21260 [152]1,[199](15)[166]8)"KZ 1-3 KAMMER   =";K1
  369. 21270 [152]1,[199](15)[166]8)"AL IN NHENRY    =";A1
  370. 21280 [152]1,[199](15)[166]8)"F IN HERZ       =";F1
  371. 21290 [152]1
  372. 21300 [152]1,[199](14)[166]4)"SPULE (HF-DROSSEL)-DATEN * AUSGABE"
  373. 21310 [152]1
  374. 21340 [152]1,[199](15)[166]8)"N             =";NA;
  375. 21350 [139]MA[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
  376. 21360 [139]MA[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
  377. 21370 [152]1,[199](15)[166]8)"D NENN.       =";E1;[199](16)[199](51)[199](50)"CUL"
  378. 21380 [152]1,[199](15)[166]8)"D AUSS.       =";E2;[199](16)[199](51)[199](50)"CUL"
  379. 21390 [152]1,[199](15)[166]8)"RCU           =";RA;[199](16)[199](51)[199](50)RA$
  380. 21400 [152]1,[199](15)[166]8)"XL INDUKTANZ  =";R2;[199](16)[199](51)[199](50)R2$
  381. 21410 [152]1,[199](15)[166]8)"Q SPULENGUETE =";QQ;[199](16)[199](51)[199](50)R2$
  382. 21420 [152]1,[199](15)[166]8)"FCU           =";FA;
  383. 21430 [152]1,[199](15)[166]8)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
  384. 21500 O2[178]0:[152]1:[160]1:[142]
  385. 50000 [143]*VARIABLEN LESEN
  386. 50010 [134]Q(15,7):[134]Q1(31,3)
  387. 50110 [135]X1$,X2$,X3$,T1$,T2$,T3$,T4$,T5$,T6$,T7$,T8$
  388. 50200 [131]"                                   "
  389. 50210 [131]"LOAD",""
  390. 50220 [131]"BITTE WAEHLEN SIE AUS","BITTE GEWUENSCHTE NUMMER EINTIPPEN"
  391. 50240 [131]"KERNDATEN NICHT GEF.","BITTE NEUEINGABE","KERNDATEN AUFLISTEN ?"
  392. 50250 [131]"EINGABE UNVOLLSTAENDIG","AENDERUNG ERWUENSCHT VON:?"
  393. 50260 [131]"DRUCKER EINGESCHALTET ?"
  394. 51000 [143]*KERNDATEN
  395. 51100 [129]J[178]1[164]15
  396. 51200 [129]W[178]1[164]7
  397. 51205 [135]W1
  398. 51210 Q(J,W)[178]W1:[130]
  399. 51220 [130]
  400. 51400 [131]9,5,1,1.882,1.8565,18.5,10,11,7,1,1.836,2.3654,22,16,11,7,2,1.839
  401. 51420 [131] 2.5075,22,16,14,8,1,1.828,3.0292,28,25,14,8,2,1.832,3.2114,28,25
  402. 51430 [131] 18,11,1,1.839,3.8683,35.6,44
  403. 51440 [131] 18,11,2,1.861,4.1204,35.6,44,22,13,1,1.848,5.3375,44,63
  404. 51450 [131] 22,13,2,1.825,5.9283,44,63
  405. 51460 [131] 26,16,1,1.849,6.3362,52,94,26,16,2,1.834,6.9018,52,94
  406. 51470 [131] 30,19,1,1.835,7.8774,60,136
  407. 51480 [131] 30,19,2,1.831,8.5916,60,136,36,22,1,1.827,9.1729,73,201
  408. 51490 [131] 36,22,2,1.824,10.0917,73,201
  409. 52000 [143]*DRAHTTABELLE
  410. 52100 [129]J[178]1[164]31
  411. 52200 [129]W[178]1[164]3
  412. 52205 [135]W1
  413. 52210 Q1(J,W)[178]W1:[130]
  414. 52220 [130]
  415. 52400 [131] .032,.04,21.44,.04,.05,13.72,.05,.062,8.781,.063,.078,5.531
  416. 52420 [131] .071,.088,4.355,.08,.098,3.43,.09,.11,2.71,.1,.121,2.195
  417. 52440 [131] .112,.134,1.75,.125,.149,1.405,.14,.166,1.12,.16,.187,.8575
  418. 52460 [131] .18,.209,.6775,.2,.23,.5488,.224,.256,.4375,.25,.284,.3512
  419. 52480 [131] .28,.315,.28,.315,.352,.2212,.355,.395,.1742,.4,.442,.1372
  420. 52500 [131] .45,.495,.1084,.5,.548,.08781,.56,.611,.07,.63,.684,.05531
  421. 52520 [131] .71,.767,.04355,.75,.809,.03903,.8,.861,.0343,.85,.913,.03038
  422. 52540 [131] .9,.965,.0271,.95,1.017,.02432,1,1.068,.02195
  423. 55000 [142]
  424. 58000 [143]*DRUCKEN
  425. 58100 [159]1,4
  426. 58110 [152]1,"KERNTABELLE":[152]1
  427. 58120 [152]1,"D-KERN";
  428. 58130 [152]1,[199](16)[199](49)[199](48)"B-KERN";[199](16)[199](50)[199](48)"KZ";
  429. 58140 [152]1,[199](16)[199](51)[199](48)"X1";[199](16)[199](52)[199](48)"Y1";
  430. 58150 [152]1,[199](16)[199](53)[199](48)"LN";[199](16)[199](54)[199](48)"AE"
  431. 58160 [152]1
  432. 58200 [129]J[178]1[164]15
  433. 58210 [152]1,Q(J,1);[199](16)[199](49)[199](48)Q(J,2);
  434. 58220 [152]1,[199](16)[199](50)[199](48)Q(J,3);[199](16)[199](51)[199](49)Q(J,4);
  435. 58230 [152]1,[199](16)[199](52)[199](48)Q(J,5);[199](16)[199](53)[199](49)Q(J,6);
  436. 58240 [152]1,[199](16)[199](54)[199](48)Q(J,7)
  437. 58250 [130]
  438. 58300 [152]1:[152]1
  439. 58310 [152]1,"DRAHTTABELLE":[152]1
  440. 58320 [152]1,"D-NENN";
  441. 58330 [152]1,[199](16)[199](49)[199](48)"D-AUSSEN";
  442. 58340 [152]1,[199](16)[199](50)[199](48)"R OHM/M"
  443. 58400 [129]J[178]1[164]31
  444. 58410 [152]1,Q1(J,1);[199](16)[199](49)[199](48)Q1(J,2);
  445. 58420 [152]1,[199](16)[199](50)[199](48)Q1(J,3)
  446. 58450 [130]
  447. 59900 [152]1:[160]1:[142]
  448.